10 REM:THE FOLLOWING NEED TO BE CHANGED TO CREATE A NEW MACHINE
15 REM LINES 120 TO 179 ARE THE PAYOFF MULTIPLIERS FOR ALL WINS   THIS VARIABLE DOES NOT EFFECT PAYOFFS IT IS ONLY USED TO DISPLAY PAYOFFS
20 REM LINES 660 TO 700 SETS THE NUMBER OF SPOTS ON EACH REEL
24 REM LINES 725 TO 880 IF ANOTHER REEL WAS ADDED IT WOULD BE DONE HERE
26 REM IF A 4TH LINE IS ADDED DO NOT USE  D  FOR A VARIABLE IT HAS BEEN USED
30 REM IF MORE SPOTS ARE ADDED TO THE REELS LINES  902 TO 906 AND 922 TO 926 AND 960 TO 1080
34 REM LINES 2050 TO 2400 MUST BE CHANNGED TO SET NEW PAYOFFS
37 REM LINES 5072 TO 5190 PRINT ON SCREEN ALL PAYOFFS BEFORE REELS ARE SPUN
40 REM LINES 5024 AND 5025 SET PLAYER MAX BET
44 REM LINE 5025 PRINTS MAX BET ON SCREEN
45 REM LINE 199 SHOWS WHAT SLOT MACHINE THIS IS
48 REM LINE 5030 PRINTS ON  SCREEN PAYOUT %
70 KEY OFF:SOUND 300,1:CM=1:SCREEN 2:SCREEN 0:COLOR 14:CLS:LOCATE  9,26:PRINT "HOW  FAST  IS  YOUR  COMPUTER"
73 COLOR 11
74 LOCATE 13,30:PRINT "1 - PENTIUM"
76 LOCATE 14,30:PRINT "2 - 486"
78 LOCATE 15,30:PRINT "3 - 386 OR SLOWER"
80 LOCATE 20,30
81 QW$=INKEY$:IF LEN(QW$)<1 GOTO 81
82 IF QW$="1" THEN CM=.4
84 IF QW$="3" THEN CM=40
100 SCREEN 2:SCREEN 1:CLS:RANDOMIZE TIMER:COLOR 8,2
110 SP=7:CRE=100:SP$="MEDIUM"
120 P27=50:P26=20:P25=15:P24=8:P23=4:P22=3:P21=2:P20=1:P19=1:P18=1:P8=1:P7=1:P6=1:P5=2:P4=5:P3=10
199 LOCATE 10,11:PRINT "SLOT  MACHINE  # 6"
200 SD=600
202 SD=SD+400
204 SOUND SD,.5
206 SD=SD-100
208 SOUND SD,.5
210 IF SD<3400  GOTO 202
212 EE=EE+1
213 IF EE<1 GOTO 200
214 SD=200
215 SD=SD+400
220 SOUND SD,.05
225 SD=SD-100
226 SOUND SD,.05
230 IF SD<8000  GOTO 215
235 FF=FF+1
237 IF FF<9 GOTO 214
240 GG=GG+1
242 IF GG<2 THEN EE=1:FF=1:GOTO 200
244 SD=0
245 SD=SD+400
246 SOUND SD,.5
247 SD=SD-100
248 SOUND SD,.05
249 IF SD<8000   GOTO 245
250 HH=HH+1
251 IF HH<2 GOTO 244
260 SD=200
261 SD=SD+400
262 SOUND SD,.05
263 SD=SD-100
264 SOUND SD,.05
265 IF SD<8000  GOTO 261
266 II=II+1
267 IF II<6 GOTO 260
299 CLS
300 GOTO 10000
500 D=0:SCOUNT=0:RS=SP*100:REM ****** CHANGE # IN THIS LINE TO CHANGE REEL SPEED
510 R1=INT(RND*5)+5
511 R2=INT(RND*4)+R1+5:REM *************  HOW LONG THE 2ND AND 3RD REELS TAKE TO
512 R3=INT(RND*3)+R1+R2+1:REM **********  STOP AFTER THE FIRST
515 A=INT(RND*4)+2
520 B=INT(RND*4)+2:REM ********* THIS IS WHAT THE 3 REELS START AT EACH SPIN
540 C=INT(RND*4)+2
560 AA=A-1:BB=B-1:CC=C-1
580 IF AA=0 THEN AA=1
600 IF BB=0 THEN BB=1
620 IF CC=0 THEN CC=1
640 A1=A+1:B1=B+1:C1=C+1
660 IF A1=10 THEN A1=1
680 IF B1=10 THEN B1=1
700 IF C1=10 THEN C1=1
720 SOUND 700,1
725 LOCATE 14, 6:PRINT AA
740 LOCATE 14, 9:PRINT BB
760 LOCATE 14,12:PRINT CC
780 LOCATE 13, 6:PRINT A:REM *******  THESE LOCATE LINES ARE THE REELS SPINNING
800 LOCATE 13, 9:PRINT B
820 LOCATE 13,12:PRINT C
840 LOCATE 12, 6:PRINT A1
860 LOCATE 12, 9:PRINT B1
880 LOCATE 12,12:PRINT C1
900 IF SCOUNT>=R1 GOTO 920
901 A=A+1:AA=AA+1:A1=A1+1
902 IF A=10 THEN A=1
904 IF A1=10 THEN A1=1
906 IF AA=10 THEN AA=1
920 IF SCOUNT>=R2 GOTO 940
921 B=B+1:BB=BB+1:B1=B1+1
922 IF B=10 THEN B=1
924 IF B1=10 THEN B1=1
926 IF BB=10 THEN BB=1
940 IF SCOUNT>=R3 GOTO 2000
941 C=C+1:CC=CC+1:C1=C1+1
960 IF C=10 THEN C=1
1020 IF C1=10 THEN C1=1
1080 IF CC=10 THEN CC=1
1100 COUNT=COUNT+CM:REM  ****************  DELAY LOOP SO REELS DONT SPIN TO FAST
1120 IF COUNT<RS GOTO 1100:REM  ******************* RS IS WHERE DELAY LOOP ENDS
1130 COUNT=0
1140 SCOUNT=SCOUNT+D
1150 IF D=1 THEN RS=RS+50:REM ** MAKES DELAY LOOP SLOW DOWN *** REELS SLOW DOWN
1160 Q$=INKEY$:IF LEN(Q$)=0 GOTO 720
1180 D=1:GOTO 720: REM ********* IF D=1 SPACE BAR HAS BEEN PUSHED TO STOP REELS
2000 REM
2010 WIN=0:PO=0
2050 IF A+B+C=27 THEN WIN=50
2060 IF A+B+C=26 THEN WIN=20
2070 IF A+B+C=25 THEN WIN=15
2080 IF A+B+C=24 THEN WIN=8
2090 IF A+B+C=23 THEN WIN=4
2100 IF A+B+C=22 THEN WIN=3
2110 IF A+B+C=21 THEN WIN=2
2120 IF A+B+C=20 THEN WIN=1
2130 IF A+B+C=19 THEN WIN=1
2140 IF A+B+C=18 THEN WIN=1
2150 IF A+B+C= 8 THEN WIN=1
2160 IF A+B+C= 7 THEN WIN=1
2170 IF A+B+C= 6 THEN WIN=1
2180 IF A+B+C= 5 THEN WIN=2
2190 IF A+B+C= 4 THEN WIN=5
2200 IF A+B+C= 3 THEN WIN=10
2500 IF WIN=0 THEN BET=0:GOTO 5000
2510 IF BET=0 THEN WIN=0:GOTO 5000
2600 WIN=WIN*BET
2610 CRE=CRE+1
2700 SOUND 110,.1
2710 SOUND 29999,3
2720 SOUND 2000,.4
2722 SOUND 29999,2
2725 LOCATE 9, 4:PRINT "CREDITS -"CRE
2728 LOCATE 17,6 :PRINT "PAYOFF"WIN
2730 PO=PO+1
2740 IF PO=WIN THEN BET=0:GOTO 5000
2750 GOTO 2610
5000 LOCATE  7,4:PRINT "COINS IN -"BET:REM  **********  BET IS HOW MANY COINS IN
5010 LOCATE  9,4 :PRINT "CREDITS -"CRE"   "
5020 LOCATE 1,1 :PRINT "REEL SPEED - "SP$
5025 LOCATE 2,1 :PRINT "MAX BET - 5 COINS"
5030 LOCATE 3,1:PRINT "PAY OUT - 94.38 %"
5032 LOCATE 17, 6:PRINT "PAYOFF"WIN"     "
5040 LOCATE 21,1:PRINT "R - CHANGES REEL SPEED"
5050 LOCATE 19,1:PRINT "SPACE BAR - SPINS REELS"
5060 LOCATE 20,1:PRINT "SPACE BAR - STOPS REELS"
5065 LOCATE 23,1:PRINT "Q - TO QUIT THE GAME"
5070 LOCATE 22,1:PRINT "C - PUTS ONE COIN IN MACHINE"
5072 LOCATE  2,26:PRINT "ADD TOGETHER"
5074 LOCATE  3,26:PRINT "THE 3  REELS"
5076 LOCATE  5,26:PRINT "27 PAYS "P27*BET"  "
5078 LOCATE  6,26:PRINT "26 PAYS "P26*BET"  "
5080 LOCATE  7,26:PRINT "25 PAYS "P25*BET"  "
5082 LOCATE  8,26:PRINT "24 PAYS "P24*BET"  "
5084 LOCATE  9,26:PRINT "23 PAYS "P23*BET"  "
5086 LOCATE 10,26:PRINT "22 PAYS "P22*BET"  "
5088 LOCATE 11,26:PRINT "21 PAYS "P21*BET"  "
5090 LOCATE 12,26:PRINT "20 PAYS "P20*BET"  "
5092 LOCATE 13,26:PRINT "19 PAYS "P19*BET"  "
5094 LOCATE 14,26:PRINT "18 PAYS "P18*BET"  "
5096 LOCATE 15,26:PRINT " 8 PAYS "P8 *BET"  "
5098 LOCATE 16,26:PRINT " 7 PAYS "P7 *BET"  "
5100 LOCATE 17,26:PRINT " 6 PAYS "P6 *BET"  "
5110 LOCATE 18,26:PRINT " 5 PAYS "P5 *BET"  "
5120 LOCATE 19,26:PRINT " 4 PAYS "P4 *BET"  "
5130 LOCATE 20,26:PRINT " 3 PAYS "P3 *BET"  "
5200 A$=INKEY$:IF LEN(A$)=0 GOTO 5200
5202 IF A$="Q" THEN LOAD"GO",R
5203 IF A$="q" THEN LOAD"GO",R
5204 IF A$="C" AND BET=5 GOTO 5200
5205 IF A$="c" AND BET=5 GOTO 5200
5210 IF A$="C" THEN BET=BET+1:CRE=CRE-1:SOUND 2100,1:GOTO 5000
5220 IF A$="c" THEN BET=BET+1:CRE=CRE-1:SOUND 2100,1:GOTO 5000
5230 IF A$="R" THEN SP=SP-3:SOUND 64,.05
5240 IF A$="r" THEN SP=SP-3:SOUND 64,.05
5250 IF SP=-2 THEN SP=13
5260 IF SP=1 THEN SP$="VERY FAST ": REM ******** SP$ SHOWS REEL SPEED ON SCREEN
5270 IF SP=4 THEN SP$="FAST      "
5280 IF SP=7 THEN SP$="MEDIUM    "
5290 IF SP=10 THEN SP$="SLOW     "
5300 IF SP=13 THEN SP$="VERY SLOW"
5310 IF A$=" " GOTO 500
5320 GOTO 5000
9999 INPUT A:INPUT A:SCREEN 2:SCREEN 0:COLOR 2
10000 REM
10725 LOCATE 14, 7:PRINT "3":REM LINES 10725 TO 10880 IS WHERE SLOT MACHINE
10740 LOCATE 14,10:PRINT "4":REM STARTS     GRAPHICS ONLY DOES NOT EFFECT PLAY
10760 LOCATE 14,13:PRINT "2"
10780 LOCATE 13, 7:PRINT "2"
10800 LOCATE 13,10:PRINT "3"
10820 LOCATE 13,13:PRINT "1"
10840 LOCATE 12, 7:PRINT "1"
10860 LOCATE 12,10:PRINT "2"
10880 LOCATE 12,13:PRINT "5"
11000 LINE ( 21, 99)-( 38,99),1:REM **********  11000 AND 11005 DRAWS PAYLINE
11005 LINE (110, 99)-(127,99),1
11100 LINE ( 31, 80)-(117,118),2,B:REM *********  DRAWS BOX AROUND REELS
11110 LINE (190, 26)-(300, 29),1,BF
19999 GOTO 5000
59999 REM               SLOT6
